pa <- "/media/sysbc/Yeast_Osmotic/"
pa <- "/media/data"
source("../R/pseudospectra.R")
library(findMFDIA)
files <- dir(pa,"*sqlite")
files

con <- createConnection(file.path(pa,files[1]))
mapSummary(con)

files <- file.path(pa,files[1])
files
con <- createConnection(files)
mapSummary(con)
dbDisconnect(con)

res <- generatePseudospecFromMS1( files , pa, rtext=5 , mzext=4 , ms1vol=4000 , ms2vol=300 ,errorRT=4)
createBestFeaturesView(con,4,4,100)
